perm filename RTST.F4[IRC,LCS] blob sn#493213 filedate 1980-01-11 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(5)
C00003 ENDMK
CāŠ—;
	DIMENSION I(5)
	I(1)=0
1	FORMAT(' TYPE')
2	FORMAT(A1)
3	FORMAT(F)
4	TYPE 1
	ACCEPT 2,A
	IF(A.GT.'Z')REREAD 3,A
5	I(2)=I(1)
	GO TO 4
	END